home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n22.arc / NUMSTR.BAS < prev    next >
BASIC Source File  |  1991-12-08  |  358b  |  19 lines
  1.  
  2. THE NUM2STR$ FUNCTION
  3. COMPLETE LISTING
  4.  
  5.  
  6. DECLARE FUNCTION Num2Str$ (Value&)
  7.  
  8. INPUT "Enter the number of pennies: ", Pennies&
  9. PRINT Num2Str$(Pennies&)
  10.  
  11. FUNCTION Num2Str$ (Pennies&) STATIC
  12.   Dollars& = Pennies& \ 100
  13.   Cents% = Pennies& MOD 100
  14.   Num2Str$ = STR$(Dollars&) + "." + _
  15.     RIGHT$("0" + LTRIM$(STR$(Cents%)), 2)
  16. END FUNCTION
  17.  
  18.  
  19.